0 REM
10 ' COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 'DIRECTORY (BASSEM)
30 (null) $A000,$B000:(null)USR 1,0:(null)SQR 1
40 (null)USR 1,0:' NO WARNINGS FOR ZEROES
50 (null)SQR 1:' WRITE TO MEMORY
60 'WRITE "DIR.ML,P,W":'CREATE ML FILE
70 (null)RND $C000:' START ADDRESS
80 (null) 1
90 '
100 (null)SETLFS=65466
110 (null)SETNAM=65469
120 (null)OPEN=65472
130 (null)CHKIN=65478
140 (null)CHRIN=65487
150 (null)CHROUT=65490
160 (null)CLOSE=65475
170 (null)CLRCHN=65484
180 (null)ZP=251
190 (null)LINPRT=48589
200 '
210 (null)CLR #1
220 (null)CMD #8:' DEVICE NUMBER
230 (null)SYS #0
240 (null)LIST (null)SETLFS
250 (null)CLR #2:' LENGTH OF FILENAME
260 (null)CMD #<(null)FILENM:' NAME IS "$0" FOR DIRECTORY
270 (null)SYS #>(null)FILENM
280 (null)LIST (null)SETNAM
290 (null)LIST (null)OPEN
300 (null)CMD #1:' INPUT FROM FILE 1
310 (null)LIST (null)CHKIN
320 (null)LIST (null)CHRIN:' DISCARD TRACK AND SECTOR BYTES
330 (null)LIST (null)CHRIN
340 (null)NEWENT (null)LIST (null)CHRIN
350 (null)/ (null)ZP
360 (null)LIST (null)CHRIN
370 ORA (null)ZP:' CHECK FOR TWO CONSECUTIVE ZEROES INDICATING LAST ENTRY
380 (null)INPUT# (null)EXIT
390 (null)CLR #13:' PRINT <CR> FOR EACH ENTRY
400 (null)LIST (null)CHROUT
410 (null)PAUSE (null)CLR 653:' SHIFT KEY PAUSE
420 AND #1
430 (null)READ (null)PAUSE
440 (null)LIST (null)CHRIN:' GET LOW BYTE
450 (null)OR
460 (null)LIST (null)CHRIN:' GET HIGH BYTE
470 (null)LIST (null)LINPRT:' PRINT THE NUMBER OF BLOCKS
480 (null)CLR #32:' INSERT A SPACE
490 (null)LIST (null)CHROUT
500 (null)LOOP (null)LIST (null)CHRIN
510 (null)INPUT# (null)NEWENT:' ZERO BYTE ENDS AN ENTRY
520 (null)LIST (null)CHROUT
530 (null)READ (null)LOOP:' LOOP BACK FOR MORE
540 (null)EXIT (null)CLR #1:' ALL DONE, CLOSE AND RESET CHANNELS
550 (null)LIST (null)CLOSE
560 (null)LIST (null)CLRCHN
570 (null)NOT
580 (null)FILENM (null)ABS "$0"
590 (null) 2